home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / TerminalTools.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  2.0 KB  |  129 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {    TerminalTools.p}
  5. {    Pascal Interface to the Terminal Manager Tools.}
  6. {    }
  7. {    Copyright © Apple Computer, Inc.    1988-90}
  8. {    All rights reserved}
  9. {}
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15.  
  16. unit TerminalTools;
  17. interface
  18.     uses
  19.         Types, OSUtils, AppleTalk, Dialogs, Memory, Script, Packages, CTBUtilities, Connections, Terminals;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.     const
  40.         tdefType = 'tdef';
  41.         tvalType = 'tval';
  42.         tsetType = 'tset';
  43.         tlocType = 'tloc';
  44.         tscrType = 'tscr';
  45.         tbndType = 'tbnd';
  46.         tverType = 'vers';
  47.  
  48. { messages }
  49.         tmInitMsg = 0;
  50.         tmDisposeMsg = 1;
  51.         tmSuspendMsg = 2;
  52.         tmResumeMsg = 3;
  53.         tmMenuMsg = 4;
  54.         tmEventMsg = 5;
  55.         tmActivateMsg = 6;
  56.         tmDeactivateMsg = 7;
  57.         tmGetErrorStringMsg = 8;
  58.  
  59.         tmIdleMsg = 50;
  60.         tmResetMsg = 51;
  61.  
  62.         tmKeyMsg = 100;
  63.         tmStreamMsg = 101;
  64.         tmResizeMsg = 102;
  65.         tmUpdateMsg = 103;
  66.         tmClickMsg = 104;
  67.         tmGetSelectionMsg = 105;
  68.         tmSetSelectionMsg = 106;
  69.         tmScrollMsg = 107;
  70.         tmClearMsg = 108;
  71.         tmGetLineMsg = 109;
  72.         tmPaintMsg = 110;
  73.         tmCursorMsg = 111;
  74.         tmGetEnvironsMsg = 112;
  75.         tmDoTermKeyMsg = 113;
  76.         tmCountTermKeysMsg = 114;
  77.         tmGetIndTermKeyMsg = 115;
  78.  
  79. {    messages for validate DefProc                }
  80.  
  81.         tmValidateMsg = 0;
  82.         tmDefaultMsg = 1;
  83.  
  84. {    messages for Setup DefProc                }
  85.  
  86.         tmSpreflightMsg = 0;
  87.         tmSsetupMsg = 1;
  88.         tmSitemMsg = 2;
  89.         tmSfilterMsg = 3;
  90.         tmScleanupMsg = 4;
  91.  
  92. {    messages for scripting defProc             }
  93.         tmMgetMsg = 0;
  94.         tmMsetMsg = 1;
  95.  
  96. {    messages for localization defProc        }
  97.  
  98.         tmL2English = 0;
  99.         tmL2Intl = 1;
  100.  
  101.  
  102.     type
  103.  
  104.         TMSearchBlockPtr = ^TMSearchBlock;
  105.         TMSearchBlock = record
  106.                 theString: StringHandle;
  107.                 where: Rect;
  108.                 searchType: TMSearchTypes;
  109.                 callBack: ProcPtr;
  110.                 refnum: INTEGER;
  111.                 next: TMSearchBlockPtr;
  112.             end;
  113.  
  114.         TMSetupPtr = ^TMSetupStruct;
  115.         TMSetupStruct = record
  116.                 theDialog: DialogPtr;
  117.                 count: INTEGER;
  118.                 theConfig: Ptr;
  119.                 procID: INTEGER;        { procID of the tool    }
  120.             end;
  121.  
  122.  {UsingTerminalTools}
  123.  
  124.  
  125. implementation
  126. end.
  127.  
  128.  
  129.